home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / dedmatic.arc / EMPTY.BAT < prev    next >
Encoding:
DOS Batch File  |  1985-05-24  |  940 b   |  25 lines
  1. echo off
  2. echo ******** READ THE MANUAL BEFORE USING THIS ROUTINE  *********
  3. echo Warning: Deduct-a-Matic records on diskette A will be erased after copying
  4. echo If you want to copy without erasing, use the "FETCH" program.
  5. echo To escape hit "Ctrl-C".
  6. echo Note: Records will be copied FROM drive A and TO the default drive (B or C).
  7. pause Strike any key when ready.....
  8. if exist a:d.l goto :normal
  9. echo There are no Deduct-a-Matic records on the diskette in drive A.
  10. goto :exit
  11. :normal
  12. if not exist d.l copy a:d.l dtemp.l
  13. if exist d.l copy a:d.l+d.l dtemp.l
  14. if exist dtemp.l goto :cont
  15. echo There is not enough room to empty the records onto this diskette.
  16. echo Please try another diskette with more room.
  17. goto :exit
  18. :cont
  19. del a:d.l
  20. copy dtemp.l d.l
  21. echo The records from the diskette in Drive A have been copied and erased.
  22. echo To empty another diskette hit the F3 key, then hit return when ready.
  23. :exit
  24. echo on
  25.